(diacritic-composition-function): Fix arguments.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index bc4fbf9833496d452fc45019fa6c9ad14d4e5f66..287231db9335108d4a7eb71de4c3d1c54f2ea4fe 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -708,7 +708,7 @@ positions (integers or markers) specifying the region."
   (interactive)
   (diacritic-compose-region (point-min) (point-max)))
 
-(defun diacritic-composition-function (pos &optional string)
+(defun diacritic-composition-function (pos to font-object string)
   "Compose diacritic text around POS.
 Optional 2nd argument STRING, if non-nil, is a string containing text
 to compose.